10 POKE53280,0:POKE53281,0:PRINTCHR$(147)CHR$(5)
20 FORZ=54272TO54295:POKEZ,0:NEXT:REM CLEAR SOUND CHIP
30 POKE54296,15:POKE54277,12:POKE54278,252:POKE54275,8:REM VOL, ADSR, HI PULSE
35 PRINTCHR$(147):PRINT:PRINT"PLEASE TURN UP VOLUME ON TV OR MONITOR.
36 [129]T[178]1[164]2000:[130]
40 [153][199](147):[153]:[153]:[153]"VOICE 1, 2, 3, 4 OR 5?
50 GETA$:IFA$<>"1"THENIFA$<>"2"THENIFA$<>"3"THENIFA$<>"4"THENIFA$<>"5"THEN50
60 IFA$="1"THENM=17:V=1
70 IFA$="2"THENM=33:V=2
80 IFA$="3"THENM=65:V=3
90 IFA$="4"THENM=129:V=4
100 IFA$="5"THENM=21:V=5
110 POKE54276,M:REM WAVEFORM
120 PRINTCHR$(147)
130 C=INT(50*RND(1))+1:D=INT(150*RND(1))+1:E=INT(100*RND(1))+1
140 PRINT:PRINT"VOICE = ";V
150 PRINT:PRINT:PRINT"HIT SPACE BAR TO PLAY A RANDOM VIBE     OVER AND OVER."
160 PRINT:PRINT"REPEAT IF DESIRED."
170 PRINT:PRINT"HIT ANY KEY TO HEAR SAME SOUND ONCE AND LIST ITS VALUES."
180 PRINT:PRINT"HOLD ANY KEY DOWN TO CYCLE THROUGH      RANDOM SOUNDS."
190 PRINT:PRINT"HIT 'V' TO CHANGE VOICES."
200 IFPEEK(203)=64THENPOKE54273,0:POKE54272,0:GOTO200
210 IFPEEK(203)=60THEN280
220 IFPEEK(203)=31THEN40
230 FORA=CTODSTEPE:POKE54273,A:NEXTA:FORB=CTODSTEPE:POKE54272,B:NEXTB
240 FORA=DTOCSTEP-E:POKE54273,A:NEXTA:FORB=DTOCSTEP-E:POKE54272,B:NEXTB
250 PRINT:PRINT"LO FREQ=";C", HI FREQ=";D", STEP=";E:POKE54273,0:POKE54272,0
260 IFPEEK(203)=64THEN260
270 GOTO120
280 FORA=CTODSTEPE:POKE54273,A:NEXTA:FORB=CTODSTEPE:POKE54272,B:NEXTB
290 FORA=DTOCSTEP-E:POKE54273,A:NEXTA:FORB=DTOCSTEP-E:POKE54272,B:NEXTB:GOTO200